home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SURVIVOR.SDA / SURVIVOR LDR (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  51 lines
  1. 0 REM *       S U R V I V O R       *
  2. 1 :
  3. 2 REM        QS!   DISK # G-52         .
  4. 5 IFA=1THEN110
  5. 8 POKE53280,2:POKE53281,2
  6. 10 PRINT"[147][158]           S U R V I V O R
  7. 15 [153]"DEF  TWO PLAYER GAME.":[153]"  TWO JOYSTICKS, ONE IN EACH PORT.
  8. 20 PRINT"  PRESS FIRE BUTTONS TO FIRE. THE RULES
  9. 25 [153]"  ARE TO TRY TO SHOOT EVERYTHING IN
  10. 32 PRINT"  SIGHT, INCLUDING YOUR OPPONENT.
  11. 34 [153]"  YOU HAVE 10 SHOTS AND 5 LIVES.
  12. 36 PRINT"  IF A CHARACTER SIMILAR TO THIS [215][146]
  13. 38 [153]"  APPEARS, MOVE YOUR MAN ON IT AND
  14. 40 PRINT"  YOUR SHOTS WILL BE REPLENISHED. IF
  15. 42 [153]"  YOU RUN OUT OF SHOTS YOU CAN'T MOVE.
  16. 60 PRINT"[158]       PRESS <SPACE> TO PLAY.
  17. 65 [161]G$:[139]G$[179][177]" "[167]65
  18. 100 [139]A[178]0[167]A[178]1:[153]"LOADSTOP"[166]14)"LOADING ML":[147]"SURVIVOR",8,1
  19. 110 [151]56,32:[151]55,0:[156]
  20. 120 [153]"LOAD":Z[178]2:BC[178]53280:BK[178]53281:C$(1)[178]"VERIFY":C$(2)[178]"FOR":C$(3)[178]"":A$[178][199](148)
  21. 130 T1[178]0
  22. 140 [139]A$[178][199](129)[167]A$[178][199](28):[137]160
  23. 150 A$[178][199](129)
  24. 160 [153]A$:[153]"   ";
  25. 170 [151]BC,0:[151]BK,0:U$[178]"                             ":M$[178]"GETWAITGETGETWAITGET"
  26. 180 [153]"    WAIT"[166]35)"  WAIT    WAIT"[166]34)"  WAIT     "M$U$"     WAIT  "M$"GET*RND";
  27. 190 [153]"WAITRND"U$"  WAIT "M$"GETLOGCOSWAITCOS"M$[166]21)"  WAIT    WAIT  NEWNEWWAIT GET*LOGWAIT "M$" RND*WAIT";
  28. 200 [153][166]19)"    WAIT      LOGCOSLOGCOSLOGLOGCOSWAITCOS GETWAITGET "M$U$"LOGCOS  GETWAITGET "M$"**RNDWAITRND"U$"NEWNEW";
  29. 210 [153]"WAIT LOGLOGCOSWAITCOSGETWAITGETGETWAITGETGET*RNDWAITRND"U$"LOGCOS "M$"GETLOGCOSWAITCOS"[166]33)"NEWNEWWAIT GET*LOGWAITCMDCMDCMDLOGCOSLOGCOS"
  30. 220 [153][166]4)" PRESS FIRE BUTTON TO PLAY"
  31. 230 [139](([194](56320)[175][194](56321))[175]16)[179][177]16[167][151]BC,12:[137]250
  32. 240 [137]140
  33. 250 [141]350:[153]"LOAD";:L$[178]C$[170]"       WAIT":[153]L$[166]33);:[129]X[178]1[164]5:[129]Z[178]1[164]3
  34. 260 [141]350:[153]L$"STOP ";
  35. 270 [153]C$(Z)"   WAITSTOP "C$(Z)"   WAITSTOP "C$(Z)"   WAITSTOP "C$(Z)"   WAITSTOP "C$(Z);
  36. 280 [153]"   WAITSTOP "C$(Z)"   WAITSTOP "C$(Z)"   WAITSTOP "C$(Z)"   WAITSTOP ";:[130]Z
  37. 290 [139]MT[167][141]350:[153]L$"STOP                                CMD"A$" ";:[137]320
  38. 300 [141]350
  39. 310 [153]L$"WAITSTOP                                 ";:[130]X:MT[178]1:[129]Z[178]1[164]3:[137]260
  40. 320 C$[178]"SYS":[141]340:[153]"":C$[178]"OPEN":[141]340
  41. 330 [158]10240:[137]360
  42. 340 [153]""C$"LIVESCMDCMDCMDPRINT#5"C$"CMDCMDCMDSHOTSPRINT#";:[142]
  43. 350 C$[178]"PRINT#":[142]
  44. 360 [153]""[166]19)"WAITGAME OVER"
  45. 370 [139]([194](870)[171]176)[167]T2[178]8[170]([194](878)[178]0):[137]390
  46. 380 T2[178]4[170]([194](878)[178]0)
  47. 390 [129]I[178]1[164]9:[151]BK,T2:[129]J[178]1[164]50:[130]J:[151]BK,T1:[129]J[178]1[164]50:[130]J,I
  48. 400 [153]""[166]8)"PRESS FIRE BUTTON TO PLAY AGAIN"
  49. 410 [139](([194](56320)[175][194](56321))[175]16)[179][177]16[167]330
  50. 420 [137]410
  51.